submodule(fffc_filesystem) fffc_filesystem_exists
contains

    module procedure exists

    inquire (file=file, exist=exists)
#if defined __INTEL_COMPILER
    if (.not. exists) inquire (directory=file, exist=exists)
#endif

    end procedure exists

end submodule fffc_filesystem_exists
